
import Relational
import Data
import Data.Maybe

test1 = listToMaybe (π (peopleRel ∋ (==Female)) :: [Name])

main = undefined
